#include "stdafx.h"

#include "hnum_slucmn.h"
/*
 * -- SuperLU MT routine (version 1.0) --
 * Univ. of California Berkeley, Xerox Palo Alto Research Center,
 * and Lawrence Berkeley National Lab.
 * August 15, 1997
 *
 * This routine should NOT be optimized.
 */

namespace harlinn
{
    namespace numerics
    {
        namespace SuperLU
        {

            int await(volatile int *status)
            {
                register int i, j, k, randnum;

                /* randnum = ( random() & 0xff ); */
                randnum = 0;
                while ( *status ) ;
            #if 0
                {
	            /* Length better be adaptive to the number of processors */
	            k = randnum;
	            for (i = 0; i < randnum; ++i) {
	                j += k;
	                k = -k;
	            }
                }
            #endif
                return 0;
            }
        };
    };
};